Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-11/shelp50a.zip/HELPDEMO.PRG

Text File | 1991-08-11 | 5KB | 141 lines

FUNCTION HELPDEMO
External superbuild   &&  Complete Superhelp System
*External minibuild   &&  Superhelp Help Building System
*External codebuild   &&  Superhelp Code Generating System
Set key -30 to superbuild &&  Call to the Complete Superhelp System
*Set key -30 to minibuild &&  Call to the Superhelp Help Building System
*Set key -31 to codebuild &&  Call to the Superhelp Code Generating System
Set key -9 to helpmgr
Set Key -4 to Register
Set Key -2 to Nowait
Set Key -20 to Helpcon
Set scoreboard off
Set Exclusive Off
Setcolor('W+/B,W+/R')
Store ' ' to A,B,C,D,E,F,G,H,I,J,K,L,M,N,O
shelpproc = 'MASTER'
Clear Screen
@01,03 SAY '┌───────────────────────────────────────────────────────────────────────┐'
@02,03 SAY '│  ░███  ░█  ░█ ░█████  ░██████ ░█████  ░█  ░█ ░██████ ░███    ░█████   │'
@03,03 SAY '│ ░█  ░█ ░█  ░█  ░█  ░█  ░█  ░█  ░█  ░█ ░█  ░█  ░█  ░█  ░█      ░█  ░█  │'
@04,03 SAY '│ ░█     ░█  ░█  ░█  ░█  ░█ █    ░█  ░█ ░█  ░█  ░█ █    ░█      ░█  ░█  │'
@05,03 SAY '│  ░███  ░█  ░█  ░████   ░███    ░████  ░█████  ░███    ░█      ░████   │'
@06,03 SAY '│     ░█ ░█  ░█  ░█      ░█ █    ░███   ░█  ░█  ░█ █    ░█  ░█  ░█      │'
@07,03 SAY '│ ░█  ░█ ░█  ░█  ░█      ░█  ░█  ░█ ░█  ░█  ░█  ░█  ░█  ░█ ░██  ░█      │'
@08,03 SAY '│  ░███   ░███  ░███    ░██████ ░██  ░█ ░█  ░█ ░██████ ░██████ ░███     │'
@09,03 SAY '│                                                                       │'
@10,03 SAY '│                               Version 5.0                             │'
@11,03 SAY '└───────────────────────────────────────────────────────────────────────┘'

@ 13,26 SAY '** BEFORE GETTING STARTED **'
@ 15,10 Say '1.  Please print the PRINT.ME and HINTS.TXT files.'
@ 16,10 SAY '2.  Setup Project Information.'
@ 17,10 SAY '3.  Setup Window Defaults.'
@ 18,10 SAY '4.  Select Field Level or Conceptual Level Help.'
@ 19,10 SAY '5.  Always best to develop Field and Conceptual Level Help.'
@ 20,10 SAY '6.  Now test the best looking help system ever!'
INKEY(0)
CLEAR SCREEN
@0,0 to 24,79
@20,5 to 23,74
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v5.0'
@ 3,38 Say 'Demo'
@ 4,50 Say '    F1 - Help'
@ 6,50 Say '    F3 - Inkey Help'
@ 7,50 Say '    F5 - Link Windows'
@ 8,50 Say '   F10 - Help Manager'
@ 9,50 Say 'Alt F1 - Create Help'
@10,50 Say '   ESC - Exits'
Setcolor('W+/B,W+/R,N/W,N/W,B')
@21,10 Say 'Help was created using Simulated Memoedit with Reference File.'
@22,10 Say 'Try using all the Superhelp Commands to generate sample help.'
Do While Lastkey() != 27
@ 5,10 Say ' 1.  Introduction               ' get A
@ 6,10 Say ' 2.  Window Commands            ' get B
@ 7,10 Say ' 3.  Color Commands             ' get C
@ 8,10 Say ' 4.  Shadow Commands            ' get D
@ 9,10 Say ' 5.  Help Code Generation       ' get E
@10,10 Say ' 6.  User Guide Generation      ' get F
@11,10 Say ' 7.  Data Dictionary Generation ' get G
@12,10 Say ' 8.  Help Text Commands         ' get H
@13,10 Say ' 9.  System Defaults            ' get I
@14,10 Say '10.  Import/Export Text         ' get J
@15,10 Say '11.  Project Setup              ' get K
@16,10 Say '12.  Color Setup                ' get L
@17,10 Say '13.  Screen Capture             ' get M
@18,10 Say '14.  Help Manager               ' get N
@19,10 Say '15.  Link Windows               ' get O
Read
CLOSE ALL
Enddo
RETURN NIL

Function Register
LOCAL GETLIST:={}
Set Key -4 To
rscr = savescreen(0,0,24,79)
Setcolor('W+/B,W+/R')
clear screen
fname = space(15)
lname = space(20)
add1 = space(25)
add2 = space(25)
city = space(15)
state = space(2)
zip = space(10)
phone = space(13)
@0,0 to 24,79
@19,5 to 22,74
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v5.0'
@ 3,31 Say 'Link Windows Demo'
@ 6,54 Say 'F1 - Help'
@ 7,50 Say 'Alt F1 - Create Help'
@ 8,53 Say 'F10 - Help Manager'
Setcolor('W+/B,W+/R,N/W,N/W,B')
shelpvar = 'Customer'
@20,10 Say 'Help was created using Simulated Memoedit with Reference File.'
@21,10 Say 'Try using all the Superhelp Commands to generate sample help.'
@ 5,10 Say 'Name       : ' Get fname
@ 5,40 Get lname
@ 6,10 Say 'Address    : ' Get add1
@ 7,10 Say '             ' Get add2
@ 8,10 Say 'City       : ' Get city
@ 9,10 Say 'State      : ' Get state
@10,10 Say 'Zipcode    : ' Get zip Pict '99999-9999'
@11,10 Say 'Phone No   : ' Get phone Pict '[phone]'
Read
Restscreen(0,0,24,79,rscr)
Set Key -4 To Register
Return''


Function Nowait
Set Key -2 To
rscr = savescreen(0,0,24,79)
Setcolor('W+/B,W+/R')
clear screen
Setcolor('GR+/B')
@ 2,25 Say 'Superhelp Code Generator v2.6'
@ 3,31 Say 'Inkey Window Demo'
Setcolor('W+/B,W+/R')
@ 4,54 Say 'F1 - Help'
@ 5,50 Say 'Alt F1 - Create Help'
@ 7,20 to 13,60 DOUBLE
@ 9,22 Say 'This is an example of a no wait'
@10,22 Say 'state in Clipper using ENKEY().'
@11,22 Say 'Create Help by press Alt-F1.'
@14,20 Say 'Syntax: ENKEY(time,PROCNAME(),variable)'
@15,20 Say '               │      │         │      '
@16,20 Say '               │      │         └──> Name assigned to Var'
@17,20 Say '               │      └───> Clipper Function '
@18,20 Say '               └───> Just like Inkey parameter'
pass = 0
keyp =  STR(Enkey(0,PROCNAME(0),"INKEY1"),3)
Restscreen(0,0,24,79,rscr)
Set Key -2 To Nowait
Return''